home *** CD-ROM | disk | FTP | other *** search
/ Pascal Super Library / Pascal Super Library (CW International)(1997).bin / LIBRARY / SWDOS12 / UMBLINK.ASM < prev    next >
Assembly Source File  |  1994-07-28  |  856b  |  36 lines
  1. ;******************************************************************
  2. ;*                           UMBLINK.ASM                          *
  3. ;*          Source file for SoftWeyr enhanced DOS toolbox         *
  4. ;*                           version 1.0                          *
  5. ;*                 Copyright (c) by SoftWeyr,1994                 *
  6. ;******************************************************************
  7. MODEL TPASCAL
  8. LOCALS
  9.  .DATA
  10.   EXTRN DOSError:Word
  11.  .CODE
  12.   Public SetUMBLink,GetUMBLink
  13.   GetUmbLink Proc Far
  14.     MOV AX,5802H
  15.     INT 21H
  16.     JC @@Error
  17.     SUB DX,DX
  18.     MOV DosError,DX
  19.     RET
  20. @@Error:
  21.     MOV DOSError,AX
  22.     SUB AX,AX
  23.     RET
  24.  endp
  25.  SetUMBLink Proc Far Allow:Byte
  26.    Mov AX,5803H
  27.    Sub Bx,BX
  28.    Mov BL,Allow
  29.    Int 21H
  30.    JC @@Error
  31.    SUB AX,AX
  32. @@Error:
  33.    MOV DosError,AX
  34.    RET
  35.  endp
  36. end